home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
memory
/
emsaw41s.zip
/
TEST1CO.COB
< prev
next >
Wrap
Text File
|
1994-06-26
|
2KB
|
43 lines
* Example of the program in COBOL:
* The source code might be adjusted according to the compiler type.
* Compiler settings: depend on the compiler.
* The Pascal calling convention is assumed.
* Use segemsp.obj for linking.
* (See note 5)
*
IDENTIFICATION DIVISION.
PROGRAM-ID. TEST.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 TOTSIZ PIC S9(5) COMP-0.
77 AVSIZ PIC S9(5) COMP-0.
77 A PIC S9(5) COMP-0.
77 IND PIC S9(5) COMP-0.
77 BITNU PIC S9(5) COMP-0.
77 LENGTH PIC S9(5) COMP-0.
77 VAL1 PIC S9(5) COMP-0.
77 VAL2 PIC S9(5) COMP-0.
PROCEDURE DIVISION.
SECTION-1 SECTION 1.
PARA-1.
CALL 'EMINIT'
CALL 'SIZEAR' USING TOTSIZ AVSIZ
DISPLAY (1, 5) TOTSIZ AVSIZ.
CALL 'NEWAR' USING A AVSIZ
MOVE AVSIZ TO IND.
MOVE 99999999 TO VAL1.
CALL 'SETINT' USING A, IND, VAL1
CALL 'GETINTCO' USING A, IND, VAL2
DISPLAY (2, 5) VAL1 VAL2.
MOVE AVSIZ TO IND.
SUBTRACT 2 FROM IND.
MOVE 7 TO BITNU.
MOVE 30 TO LENGTH.
CALL 'SETF' USING A, IND, BITNU, LENGTH, VAL1
CALL 'GETFCO' USING A, IND, BITNU, LENGTH, VAL2
DISPLAY (3, 5) VAL1 VAL2.
CALL 'FREEAR' USING A.
DISPLAY (4, 5) TOTSIZ AVSIZ.
STOP RUN.